﻿Public Class frmTabRasterInformation
    Dim editnode As EditXML = New EditXML()

    Private Sub frmTabRasterInformation_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Leave
        editXMLFile()
    End Sub
    Public Sub editXMLFile()
        editnode.Remove("/metadata/spdoinfo", "rastinfo")
        editnode.Remove("/metadata/spdoinfo", "ptvctinf")
        If frmMain.f31.cboxDirect.SelectedItem = "Raster" Then
            Dim newNode As String = ""
            newNode = "<rasttype>" & cboxRasType.SelectedItem & "</rasttype>"
            newNode = newNode & "<rowcount>" & numRasRow.Value.ToString() & "</rowcount>"
            newNode = newNode & "<colcount>" & numRasCol.Value.ToString() & "</colcount>"
            newNode = newNode & "<vrtcount>" & numRasVert.Value.ToString() & "</vrtcount>"
            editnode.Add("/metadata/spdoinfo", "/direct", "rastinfo", newNode)
        End If
    End Sub

    Private Sub button_example_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button_example.Click
        Dim helpForm As dialog_help = New dialog_help("RasterInformation")
        helpForm.ShowDialog()
    End Sub
End Class